home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / BAG.P < prev    next >
Text File  |  1990-09-13  |  1KB  |  44 lines
  1. temp <- <primitive 110 8 >
  2. <primitive 112 temp 1        " next " \
  3.     #( #[ 17 162 247 27 17 80 204 247 9 17 81 193 97 16 171 \
  4.  243 248 10 242 16 167 241 97 161 247 2 93 243 242 249 \
  5.  31 242 93 243 245] \
  6.     #(  ) ) >
  7.  
  8. <primitive 112 temp 2        " first " \
  9.     #( #[ 16 166 241 97 161 247 2 93 243 242 17 81 193 97 16 \
  10.  171 243 245] \
  11.     #(  ) ) >
  12.  
  13. <primitive 112 temp 3        " occurrencesOf: " \
  14.     #( #[ 16 33 224 2 80 243 213 243 245] \
  15.     #(  ) ) >
  16.  
  17. <primitive 112 temp 4        " size " \
  18.     #( #[ 16 80 226 1 4 33 34 192 243 215 243 245] \
  19.     #(  ) ) >
  20.  
  21. <primitive 112 temp 5        " remove:ifAbsent: " \
  22.     #( #[ 16 33 224 3 34 165 244 213 115 81 35 201 247 6 16 \
  23.  33 11 40 248 7 242 16 33 35 81 193 208 242 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 6        " add:withOccurrences: " \
  27.     #( #[ 34 224 4 32 33 189 243 183 242 33 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 7        " add: " \
  31.     #( #[ 16 33 81 16 33 224 2 80 243 213 192 208 242 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 8        " new " \
  35.     #( #[ 5 40 160 96 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 98 #Bag \
  39.     <primitive 97 #Bag #Collection #\smalltlk\prelude\bag.st \
  40.     #(  #dict #count ) \
  41.     #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add:withOccurrences: #add: #new  ) \
  42.     temp 4 8 > >
  43.  
  44.